home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1998 #4 / Amiga Plus CD - 1998 - No. 4.iso / pd / tools / happydt / install / install_script < prev    next >
Text File  |  1997-10-26  |  9KB  |  333 lines
  1.  
  2. ; $VER: Install HappyDT 2.2 (06.22.97)
  3. ;
  4. ;    Installer script for HappyDT.
  5. ;
  6.  
  7.     (set UserLevel.old @user-level)
  8.  
  9. ; Initialize messages.
  10.  
  11.     (set #WrongKickStart "\nYou must be using at least KickStart 3.0 to run HappyDT.")
  12.     (set #WhichLanguage "\nWhich languages should be installed ? (English built-in)\n")
  13.     (set #WhichDoc "\nWhich documentations should be installed ?\n")
  14.     (set #ChoiceCpu "\nWhich version of HappyDT should be installed ?\n")
  15.     (set #ChoiceIcon "\nWhich icon type should be installed ?\n")
  16.     (set #SelDCom "\nSelect the drawer where you want the HappyDT program will be install.\n")
  17.     (set #SelDPre "\nSelect the drawer where you want the preference program will be install\n")
  18.     (set #SelBDoc "\nDo you wish to install the HappyDT documentation ?")
  19.     (set #SelDDoc "\nSelect the drawer where you want the HappyDT documentation will be install.\n")
  20.  
  21. (if (= @language "français")
  22. (
  23.     (set #WrongKickStart "\nVous devez utilisez au moins le KickStart 3.0\n pour utiliser HappyDT.")
  24.     (set #WhichLanguage "\nQuelles languages doivent être installé ? (Englais en interne)\n")
  25.     (set #WhichDoc "\nQuelles documentations doivent être installé ?\n")
  26.     (set #ChoiceCpu "\nQuelle version de HappyDT doit être installé ?\n")
  27.     (set #ChoiceIcon "\nQuelle type d'icône doit être installé ?\n")
  28.     (set #SelDCom "\nChoisissez le répertoire où vous voulez installer HappyDT.\n")
  29.     (set #SelDPre "\nChoisissez le répertoire où vous voulez installer le programme de préférence\n")
  30.     (set #SelBDoc "\nVoulez-vous installer la documentation de HappyDT ?")
  31.     (set #SelDDoc "\nChoisissez le repertoire où vous voulez installer la documentation de HappyDT.\n")
  32. ))
  33.  
  34. (if (= @language "español")
  35. (
  36.     (set #WrongKickStart "\nNecesita disponer Kickstart 3.0 o superior para ejecutar HappyDT.")
  37.     (set #WhichLanguage "\n¿Qué idiomas desea instalar (el inglés es interno)?\n")
  38.     (set #WhichDoc "\n¿Qué ficheros de documentación desea instalar?\n")
  39.     (set #ChoiceCpu "\n¿Qué versión de HappyDT desea instalar?\n")
  40.     (set #ChoiceIcon "\n¿Qué tipo de iconos desea instalar?\n")
  41.     (set #SelDCom "\nElija el cajón donde desea instalar el programa HappyDT.\n")
  42.     (set #SelDPre "\nElija el cajón donde desea instalar el programa de preferencias.\n")
  43.     (set #SelBDoc "\n¿Desea instalar la documentación de HappyDT?")
  44.     (set #SelDDoc "\nElija el cajón donde desea instalar la documentación de HappyDT.\n")
  45. ))
  46.  
  47. (if (= @language "italiano")
  48. (
  49.     (set #WrongKickStart "\nHappyDT richiede WorkBench 3.0 o superiore!")
  50.     (set #WhichLanguage  "\nQuale linguaggi vuoi che siano installati ? (Inglese incluso nel programma stesso)\n")
  51.     (set #WhichDoc       "\nChe documentazione vuoi che sia installata ?\n")
  52.     (set #ChoiceCpu      "\nChe versione di HappyDT vuoi che sia installata?\n")
  53.     (set #ChoiceIcon     "\nChe tipo di icone vuoi che siano installate ?\n")
  54.     (set #SelDCom        "\nSeleziona il cassetto in cui vuoi installare HappyDT.\n")
  55.     (set #SelDPre        "\nSeleziona il cassetto in cui vuoi installare il programma preferenze di HappyDT.\n")
  56.     (set #SelBDoc        "\nVuoi installare la documentazione di HappyDT ?")
  57.     (set #SelDDoc        "\nSeleziona il cassetto in cui vuoi che sia installata la documentazione di HappyDT.\n")
  58. ))
  59.  
  60. (procedure InstallLanguages
  61. (
  62.     (set n 0)
  63.     (while (set language (select n "français" "english" "español" "deutsch" "italiano" ""))
  64.     (
  65.       (if (in SelectedLanguages n)
  66.       (
  67.         (if (<> 1 n)
  68.         (
  69.           (makedir (cat "SYS:Locale/Catalogs/" language))
  70.           (copyfiles (source (cat "/Locale/Catalogs/" language))
  71.                  (dest   (cat "SYS:Locale/Catalogs/" language))
  72.                  (all))
  73.         ))
  74.       ))
  75.       (set n (+ n 1))
  76.     ))
  77. ))
  78.  
  79. (procedure InstallDocs
  80. (
  81.     (set n 0)
  82.     (while (set doc (select n "HappyDT_Français.guide" "HappyDT_English.guide" "HappyDT_Español.guide" "HappyDT_Deutsch.guide" "HappyDT_Italiano" ""))
  83.     (
  84.       (if (in SelectedDocs n)
  85.       (
  86.         (if (<> 3 n)
  87.         (
  88.           (copyfiles (source DOCSource)
  89.                  (dest DOCDest)
  90.                  (pattern doc))
  91.         ))
  92.         (if (= SelectedIcon 0)
  93.         (     (copyfiles (source (tackon DOCSource "icons/std_icon.info"))
  94.                      (dest DOCDest)
  95.                      (newname (cat doc ".info"))
  96.             )
  97.         ))
  98.         (if (= SelectedIcon 1)
  99.         (     (copyfiles (source (tackon DOCSource "icons/magicwb_icon.info"))
  100.                      (dest DOCDest)
  101.                      (newname (cat doc ".info"))
  102.             )
  103.         ))
  104.         (if (= SelectedIcon 2)
  105.         (     (copyfiles (source (tackon DOCSource "icons/newicon_icon.info"))
  106.                      (dest DOCDest)
  107.                      (newname (cat doc ".info"))
  108.             )
  109.         ))
  110.       ))
  111.       (set n (+ n 1))
  112.     ))
  113. ))
  114.  
  115. (procedure InstallCom
  116. (
  117.       (if (= SelectedCpu 0)
  118.       (
  119.           (copyfiles (source (tackon COMSource "00"))
  120.                  (dest COMDest)
  121.                  (all))
  122.       ))
  123.  
  124.       (if (= SelectedCpu 1)
  125.       (
  126.           (copyfiles (source (tackon COMSource "20"))
  127.                  (dest COMDest)
  128.                  (all))
  129.       ))
  130. ))
  131.  
  132. (procedure InstallIcon
  133. (
  134.     (if (= SelectedIcon 0)
  135.     (     (copyfiles (source (tackon PRESource "icons/std_icon.info"))
  136.                  (dest PREDest)
  137.                  (newname ICONName)
  138.         )
  139.          (copyfiles (source (tackon COMSource "icons/std_icon.info"))
  140.                  (dest COMDest)
  141.                  (newname "HappyDT.info")
  142.         )
  143.      ))
  144.  
  145.     (if (= SelectedIcon 1)
  146.     (     (copyfiles (source (tackon PRESource "icons/magicwb_icon.info"))
  147.                  (dest PREDest)
  148.                  (newname ICONName)
  149.         )
  150.          (copyfiles (source (tackon COMSource "icons/magicwb_icon.info"))
  151.                  (dest COMDest)
  152.                  (newname "HappyDT.info")
  153.         )
  154.      ))
  155.  
  156.     (if (= SelectedIcon 2)
  157.     (     (copyfiles (source (tackon PRESource "icons/newicon_icon.info"))
  158.                  (dest PREDest)
  159.                  (newname ICONName)
  160.         )
  161.          (copyfiles (source (tackon COMSource "icons/newicon_icon.info"))
  162.                  (dest COMDest)
  163.                  (newname "HappyDT.info")
  164.         )
  165.      ))
  166. ))
  167.  
  168. (procedure InstallPrefs
  169. (
  170.       (if (= SelectedCpu 0)
  171.       (
  172.           (if (= PREDest COMDest)
  173.           (copyfiles (source (tackon PRESource "00/HappyDT"))
  174.                      (dest PREDest)
  175.                      (newname "HappyDT_Prefs")
  176.             )
  177.           (copyfiles (source (tackon PRESource "00"))
  178.                  (dest PREDest)
  179.                  (all)))
  180.       ))
  181.  
  182.       (if (= SelectedCpu 1)
  183.       (
  184.           (if (= PREDest COMDest)
  185.           (copyfiles (source (tackon PRESource "20/HappyDT"))
  186.                      (dest PREDest)
  187.                      (newname "HappyDT_Prefs")
  188.             )
  189.           (copyfiles (source (tackon PRESource "20"))
  190.                  (dest PREDest)
  191.                  (all)))
  192.       ))
  193.  
  194. ))
  195.  
  196. ; Welcome the user.
  197.  
  198.     (complete 0)
  199.     (welcome)
  200.  
  201. ; Make sure we are running under KickStart 3.0
  202.  
  203.     (if (< (/ (getversion) 65536) 39)
  204.       (abort #WrongKickStart)
  205.     )
  206.  
  207. ; Prepare Install
  208.  
  209.     (set COMSource "/exe/")
  210.  
  211. ; Commodity dest.
  212.  
  213.     (set COMDest
  214.       (tackon
  215.         (askdir
  216.           (prompt #SelDCom)
  217.           (help @askdir-help)
  218.           (default "Sys:WBStartup")
  219.         )
  220.         ""
  221.       )
  222.     )
  223.  
  224.     (set PRESource "/prefs/")
  225.  
  226. ; Preference dest.
  227.  
  228.     (set PREDest
  229.       (tackon
  230.         (askdir
  231.           (prompt #SelDPre)
  232.           (help @askdir-help)
  233.           (default "Sys:Prefs")
  234.         )
  235.         ""
  236.       )
  237.     )
  238.  
  239. ; Cpu choice.
  240.  
  241.     (set SelectedCpu
  242.         (askchoice
  243.           (help @askchoice-help)
  244.            (prompt #ChoiceCpu)
  245.            (choices "68000"
  246.             "68020+")
  247.            (default (if (= "68000" (database "cpu")) 0 1))
  248.     ))
  249.  
  250. ; Icon choice.
  251.  
  252.     (set SelectedIcon
  253.         (askchoice
  254.           (help @askchoice-help)
  255.            (prompt #ChoiceIcon)
  256.            (choices "Standard"
  257.             "MagicWb" "NewIcon")
  258.     ))
  259.  
  260. ; Install doc ?
  261.  
  262.     (set docbool
  263.       (askbool
  264.         (prompt #SelBDoc)
  265.         (help @askbool_help)
  266.         (default 1)
  267.       ))
  268.  
  269. ; where ?
  270.  
  271.     (set DOCSource "/docs/")
  272.  
  273.     (if docbool
  274.     (set DOCDest
  275.       (tackon
  276.         (askdir
  277.           (prompt #SelDDoc)
  278.           (help @askdir-help)
  279.           (default "help:")
  280.         )
  281.         ""
  282.       )
  283.     ))
  284.  
  285. ; choice of docs to install
  286.  
  287.       (if docbool
  288.       (set SelectedDocs
  289.         (askoptions
  290.            (prompt #WhichDoc)
  291.            (help @askdir-help)
  292.            (choices "français"
  293.             "english" "español" "deutsch" "italiano")
  294.            (default (if (= @language "français") 1 (if (= @language "deutsch") 8 (if (= @language "español") 4 (if (= @language "italiano")16 2)))))
  295.         )))
  296.  
  297. ; Choice of language catalogs
  298.  
  299.     (if (exists "SYS:Locale/Catalogs")
  300.     (
  301.       (user 1)
  302.  
  303.       (set SelectedLanguages
  304.         (askoptions
  305.            (prompt #WhichLanguage)
  306.            (help   @askoptions-help)
  307.            (choices "français"
  308.             "english" "español" "deutsch" "italiano")
  309.            (default (if (= @language "français") 1 (if (= @language "deutsch") 8 (if (= @language "español") 4 (if (= @language "italiano")16 2 )))))
  310.         ))
  311.  
  312.       (user UserLevel.old)
  313.     ))
  314.  
  315. ; Install all
  316.  
  317.     (InstallCom)
  318.     (complete 25)
  319.     (if (= COMDest PREDest) (set ICONName "HappyDT_Prefs.info")
  320.                             (set ICONName "HappyDT.info"))
  321.     (InstallPrefs)
  322.     (complete 50)
  323.     (InstallIcon)
  324.     (if docbool (InstallDocs))
  325.     (complete 75)
  326.     (InstallLanguages)
  327.     (complete 100)
  328.  
  329. ; exit
  330.  
  331.     (set @default-dest "")
  332.     (exit)
  333.